% Download IPM and PPT data from ipgp
% Mar 1, 2011

f = ftp('newclf-gin.ipgp.fr');
ascii(f);


localdirectory = 'E:\NoBackup\magtrans\IPM_PPT\';
remotedirectory = '/QuasiDefinitive/ppt/sec/2010/';
cd(f, remotedirectory);

for i = 1:31,
    
    filename = ['ppt' datestr(datenum(2010,10,16)+ i,'yyyymmdd') 'qsec.sec'];
    mget(f, filename , localdirectory);
end;

close(f);

remotedirectory = '/QuasiDefinitive/ipm/sec/2010/';
cd(f, remotedirectory);

for i = 1:31,
    
    filename = ['ipm' datestr(datenum(2010,10,16)+ i,'yyyymmdd') 'qsec.sec'];
    mget(f, filename , localdirectory);
end;


